home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AudioVideoLib1.15.cpt / AudioVideoUtilities / background_4582.txt < prev    next >
Text File  |  1991-03-04  |  6KB  |  246 lines
  1. -- background: 4582 from stack: in
  2. -- bmap block id: 4659
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: CassetteLabel
  6.  
  7.  
  8. -- part 3 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=49 top=192 right=213 bottom=290
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 8448
  18. -- line height: 16
  19. -- part name: Atitle
  20. ----- HyperTalk script -----
  21. on returnInField
  22.   click at location of field "Btitle"
  23. end returnInField
  24.  
  25.  
  26.  
  27. -- part 4 (field)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=144 top=18 right=192 bottom=291
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 9
  36. -- style flags: 0
  37. -- line height: 12
  38. -- part name: B1
  39.  
  40.  
  41. -- part 5 (field)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=0 top=18 right=192 bottom=144
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 3
  49. -- text size: 9
  50. -- style flags: 0
  51. -- line height: 12
  52. -- part name: A1
  53.  
  54.  
  55. -- part 6 (field)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=144 top=228 right=278 bottom=291
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 3
  63. -- text size: 9
  64. -- style flags: 0
  65. -- line height: 12
  66. -- part name: B2
  67.  
  68.  
  69. -- part 7 (field)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=0 top=228 right=278 bottom=144
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 0
  76. -- font id: 3
  77. -- text size: 9
  78. -- style flags: 0
  79. -- line height: 12
  80. -- part name: A2
  81.  
  82.  
  83. -- part 9 (field)
  84. -- low flags: 00
  85. -- high flags: 0000
  86. -- rect: left=49 top=208 right=229 bottom=290
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 3
  91. -- text size: 12
  92. -- style flags: 8448
  93. -- line height: 16
  94. -- part name: Btitle
  95. ----- HyperTalk script -----
  96. on returnInField
  97.   closeField
  98. end returnInField
  99.  
  100.  
  101.  
  102. -- part 10 (field)
  103. -- low flags: 01
  104. -- high flags: 0002
  105. -- rect: left=45 top=2 right=17 bottom=153
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 3
  110. -- text size: 10
  111. -- style flags: 0
  112. -- line height: 13
  113. -- part name: noiseReduction
  114. ----- HyperTalk script -----
  115. on mouseDown
  116.   put "None;Dolby B;Dolby C;dbx;Dolby B with HXPro;" & "Dolby C with HXPro;Dolby S with HXPro;Other" into choices
  117.  
  118.   put the value of 1 into lastItem
  119.   get topLeft of target
  120.  
  121.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  122.  
  123.   if the result is not empty then put the result
  124.  
  125.   if item 1 of it is not empty then
  126.     put item 1 of it into bkgnd fld "noiseReduction"
  127.     if item 1 of it is "Other" then
  128.       ask "Enter Noise Reduction System"
  129.       if it is not empty then
  130.         put it into bkgnd field "noiseReduction"
  131.       end if
  132.     end if
  133.   end if
  134. end mouseDown
  135.  
  136.  
  137. -- part 11 (field)
  138. -- low flags: 00
  139. -- high flags: 0002
  140. -- rect: left=205 top=2 right=17 bottom=270
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 3
  145. -- text size: 10
  146. -- style flags: 0
  147. -- line height: 13
  148. -- part name: date
  149.  
  150.  
  151. -- part 12 (field)
  152. -- low flags: 00
  153. -- high flags: 0000
  154. -- rect: left=0 top=191 right=203 bottom=50
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 3
  159. -- text size: 9
  160. -- style flags: 0
  161. -- line height: 12
  162. -- part name: catalog number
  163.  
  164.  
  165. -- part 13 (field)
  166. -- low flags: 01
  167. -- high flags: 0000
  168. -- rect: left=0 top=203 right=217 bottom=50
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 3
  173. -- text size: 9
  174. -- style flags: 0
  175. -- line height: 12
  176. -- part name: tape brand
  177. ----- HyperTalk script -----
  178. on mouseDown
  179.   put  "BASF;Denon;DIC;Fuji;GE;JVC;Loran;Maxell;Memorex;" & "Nakamichi;Realistic;Recoton;Sony;TDK;3M;Other" into choices
  180.  
  181.   put the value of 1 into lastItem
  182.   get right of target
  183.  
  184.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  185.  
  186.   if the result is not empty then put the result
  187.  
  188.   if item 1 of it is not empty then
  189.     put item 1 of it into bkgnd fld "tape brand"
  190.     if item 1 of it is "Other" then
  191.       ask "Enter Tape Brand"
  192.       if it is not empty then
  193.         put it into bkgnd field "tape brand"
  194.       end if
  195.     end if
  196.   end if
  197. end mouseDown
  198.  
  199.  
  200. -- part 14 (field)
  201. -- low flags: 01
  202. -- high flags: 0000
  203. -- rect: left=0 top=216 right=228 bottom=50
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 3
  208. -- text size: 9
  209. -- style flags: 0
  210. -- line height: 12
  211. -- part name: tape length
  212. ----- HyperTalk script -----
  213. on mouseDown
  214.   put "30 min;45 min;60 min;75 min;80 min;90 min;" & "100 min;110 min;120 min;Other" into choices
  215.  
  216.   put the value of 1 into lastItem
  217.   get bottomRight of target
  218.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  219.  
  220.   if the result is not empty then put the result
  221.  
  222.   if item 1 of it is not empty then
  223.     put item 1 of it into bkgnd fld "tape length"
  224.     if item 1 of it is "Other" then
  225.       ask "Enter tape length"
  226.       if it is not empty then
  227.         put it into bkgnd field "tape length"
  228.       end if
  229.     end if
  230.   end if
  231. end mouseDown
  232.  
  233.  
  234. -- part 15 (field)
  235. -- low flags: 80
  236. -- high flags: 0000
  237. -- rect: left=49 top=194 right=226 bottom=290
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 15018
  242. -- text size: 24
  243. -- style flags: 0
  244. -- line height: 32
  245. -- part name: title
  246.